Synapse-preposlani prichozi posty
Otázka od: petajs@centrum.cz
4. 5. 2004 10:52
Zdravim vsechny borce v Delphi.
Potrebuji (mam Delphi7) prichozi zpravu,
kterou jsem pres Synapse "pop3send.pas"
stahl do TMimeMess, preposlat jako
message "prilohu" na jinou emailovou
adresu s mojim pruvodnim komentarem.
Je mi jasne v celku jak postu odeslat,
ale nedokazu se "chytit" jak provest
usporadani noveho mailu, to znamena
jak puvodni zpravu TMimeMess zapouzdrit
jako "message/rfc822" do nove zpravy,
kterou si patricne okomentuji a poslu na novou
prislusnou adresu kterou potrebuji.
Konkretni priklad ci presnejsi rada by byla
super.
Tak zatim diky Petr Simunek (petajs@centrum.cz)
Odpovedá: Lukas Gebauer
4. 5. 2004 11:02
> Zdravim vsechny borce v Delphi.
> Potrebuji (mam Delphi7) prichozi zpravu,
> kterou jsem pres Synapse "pop3send.pas"
> stahl do TMimeMess, preposlat jako
> message "prilohu" na jinou emailovou
> adresu s mojim pruvodnim komentarem.
> Je mi jasne v celku jak postu odeslat,
> ale nedokazu se "chytit" jak provest
> usporadani noveho mailu, to znamena
> jak puvodni zpravu TMimeMess zapouzdrit
> jako "message/rfc822" do nove zpravy,
> kterou si patricne okomentuji a poslu na novou
> prislusnou adresu kterou potrebuji.
> Konkretni priklad ci presnejsi rada by byla
> super.
Na soukromy mail ti poslu novou verzi Mimemess.pas. (vyjde hnedka v
dalsim syansnapu) S jeho pomoci to je hracka... 
Vytvor si novy TMimemess objekt, a pak postupuj nejak takto (psano z
hlavy, nevylucji preklepy...):
Var
Mime: Tmimemess;
part: Tmimepart;
begin
mess:=tmimemess.create;
try
part:= mess.addpartmutipart('mixed', nil);
mess.addparttext(stringlist_s_tvym_doprovodnym_textem, part);
mess.addpartmess(stringlist_s_puvodni_nedekodovanou_email_zpravou,
part);
//myslen trebas stringlist s textem zpravy, ktery ziskas primo z
pop3send, atd.
//napln si mess.header...
mess.encodemessage;
//v mess.lines mas vysledny mail...
//proved co potrebujes...
finally
mess.free;
end;
end;
--
Lukas Gebauer.
E-mail: gebauerl@mlp.cz
http://www.ararat.cz/synapse/ - Ararat Synapse - TCP/IP Lib.